home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / TEEIMAED.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.6 KB  |  103 lines
  1. {**********************************************}
  2. {   TImageBarSeries Component Editor Dialog    }
  3. {   Copyright (c) 1996-98 by David Berneda     }
  4. {**********************************************}
  5. {$I teedefs.inc}
  6. unit TeeImaEd;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart, Series, ImageBar
  13.   {$IFDEF D1}
  14.   , TeeUpDow, Spin
  15.   {$ELSE}
  16.   , ComCtrls
  17.   {$ENDIF};
  18.  
  19. type
  20.   TImageBarSeriesEditor = class(TForm)
  21.     GroupBox1: TGroupBox;
  22.     Image1: TImage;
  23.     BBrowse: TButton;
  24.     CBTiled: TCheckBox;
  25.     Bevel1: TBevel;
  26.     procedure FormShow(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure BBrowseClick(Sender: TObject);
  29.     procedure CBTiledClick(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.     CreatingForm:Boolean;
  33.     procedure EnableImageControls;
  34.   public
  35.     { Public declarations }
  36.     ImageBarSeries:TImageBarSeries;
  37.   end;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42. Uses PenDlg,BrushDlg,TeeConst,BarEdit
  43.      {$IFNDEF D1}
  44.      ,IEdiSeri,IEdiPane
  45.      {$ENDIF}
  46.      {$IFDEF D3}
  47.      ,ExtDlgs
  48.      {$ENDIF}
  49.      ;
  50.  
  51. procedure TImageBarSeriesEditor.FormShow(Sender: TObject);
  52. begin
  53.   Screen.Cursor:=crDefault;
  54.   ImageBarSeries:=TImageBarSeries(Tag);
  55.   With ImageBarSeries do
  56.   begin
  57.     CBTiled.Checked:=ImageTiled;
  58.     Image1.Picture.Assign(Image);
  59.   end;
  60.   {$IFNDEF D1}
  61.   With (Parent.Owner as TFormTeeSeries).InsertSeriesForm( TBarSeriesEditor,
  62.                                                           1,TeeMsg_GalleryBar,
  63.                                                           ImageBarSeries) as
  64.                                                           TBarSeriesEditor do
  65.   begin
  66.     LStyle.Visible:=False;
  67.     CBBarStyle.Visible:=False;
  68.   end;
  69.   {$ENDIF}
  70.   EnableImageControls;
  71.   CreatingForm:=False;
  72. end;
  73.  
  74. procedure TImageBarSeriesEditor.EnableImageControls;
  75. begin
  76.   CBTiled.Enabled:=(ImageBarSeries.Image.Graphic<>nil);
  77.   if CBTiled.Enabled then
  78.      BBrowse.Caption:=TeeMsg_ClearImage
  79.   else
  80.      BBrowse.Caption:=TeeMsg_BrowseImage;
  81.   Image1.Picture.Assign(ImageBarSeries.Image);
  82. end;
  83.  
  84. procedure TImageBarSeriesEditor.FormCreate(Sender: TObject);
  85. begin
  86.   CreatingForm:=True;
  87. end;
  88.  
  89. procedure TImageBarSeriesEditor.BBrowseClick(Sender: TObject);
  90. begin
  91.   TeeLoadClearImage(Self,ImageBarSeries.Image);
  92.   EnableImageControls;
  93. end;
  94.  
  95. procedure TImageBarSeriesEditor.CBTiledClick(Sender: TObject);
  96. begin
  97.   ImageBarSeries.ImageTiled:=CBTiled.Checked;
  98. end;
  99.  
  100. initialization
  101.   RegisterClass(TImageBarSeriesEditor);
  102. end.
  103.